home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 5
/
BBS in a Box -Volume V (BBS in a Box) (April 1992).iso
/
Files
/
Word
/
Ae-An
/
Alpha.20.release.cpt
/
KarlCMDS
/
loopMacro
< prev
next >
Wrap
Text File
|
1990-08-15
|
540b
|
32 lines
; Karl J. Smith
; 8/15/90
; email: ksmith@jarthur.claremont.edu
;
; Warning: this macro turns your computer into a dumb clock.
; :-)
;
; To quit, hit the debugger key, then type sm 0 a9f4 <return> g 0
; or type 'es' in MacsBug.
(define loopMacro
endOfBuffer
previousLine
beginningOfLine
setMark
endOfLine
markHilite
type "; The current time is: "
setMark
type "S"
markHilite
acmd "Paste Time"
beginningOfBuffer
; -- Refresh the screen via insertToTop
insertToTop
acmd "Delay"
loopMacro
)
; The current time is: 9:29:57 AM